home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / ca29_3.zip / UNISON.CMD < prev    next >
OS/2 REXX Batch file  |  1992-10-25  |  2KB  |  56 lines
  1. LEGEND " UNISON.CMD"            ; Put script name on status bar...
  2. ;
  3. ; ----- Dial UNISON through TELENET and logon
  4. ;    R.McG; 10/92, Chicago
  5. ; ----------------------------------------------------------------
  6. ;    Note: You must create a logon file with MKLOGON in order to
  7. ;    have this script automatically log you on... Please see the
  8. ;    file SCRIPTS.DOC
  9. ; ----------------------------------------------------------------
  10. ;    Note: This script is written to be FCALLed, executed directly (F2)
  11. ;    or attached to a dialing directory entry (for manual execution).
  12. ; ----------------------------------------------------------------
  13. ;    Note: This script requires the script SPRINT.CMD.  SPRINT.CMD
  14. ;    requires that a dialing directory entry number be prepared.
  15. ;    Unless you modify SPRINT.CMD, the entry number defaults to 10.
  16. ; ----------------------------------------------------------------
  17. ;    S0 is modified by this script.
  18. ; ----------------------------------------------------------------
  19. ;
  20. ;    Call SprintNet (if not already dialed)
  21. ;
  22.     IF NOT ISSC "SPRINT"    ; If script not available
  23.        MESS "SPRINT.CMD script not found"
  24.        EXIT         ; terminate script
  25.        ENDIF
  26.     FCALL "SPRINT"          ; Invoke SprintNet (telenet) subroutine
  27.     SET TTHRU OFF        ; Let psw be typed
  28.     LEGEND "Connecting to UNISON"
  29. ;
  30. ;    Connect to UNISON
  31. ;
  32.     TRANSMIT "C UNISON!"    ; Send request to telenet for SOURCE
  33.     WAITFOR "Username:"     ; Wait for logon prompt
  34. ;
  35. ;    Set a few parms
  36. ;
  37.     SET BSUPPRESS OFF    ; Turn off blank line suppression
  38.     SET MASK ON        ; Turn on high bit mask
  39.     SET CDISPLAY ON     ; Display ctl chars
  40.     SET BACKSP OUT DELETE    ; Nondestructive BS
  41. ;
  42. ;    If we have a UNILOGON file, use it
  43. ;
  44.     IF ISSCFILE "UNILOGON"  ; If script file is available
  45.        FCALL "UNILOGON"     ; .. call it
  46.        SET SUCCESS ON    ; Set for caller (if called)
  47.     ELSE
  48.        SET SUCCESS OFF    ; Set for caller
  49.        ENDIF
  50.     SET TTHRU ON        ; Allow typethrough again
  51. ;
  52. ;    If invoked via FCALL, return.  Else signal completion
  53. ;
  54.     IF FCALLED FRETURN    ; W/ SUCCESS set according to logon logoff
  55.     ALARM            ; Sound alarm
  56.